Dim mark As Byte


Private Sub cm1_Click()
End
End Sub

Private Sub Command1_Click()
Text3.Text = Text1.Text

Text2.Text = mark * 20 / 3
If (mark * 20 / 3 >= 10) Then
    Text2.BackColor = vbGreen
Else
    Text2.BackColor = vbRed
End If

Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False


End Sub

Private Sub Form_Load()
mark = 0
Option1.Value = 0
Option2.Value = 0
Option3.Value = 0
Option4.Value = 0
Option5.Value = 0
Option6.Value = 0
Option7.Value = 0
Option8.Value = 0
Option9.Value = 0
Option10.Value = 0
Option11.Value = 0
Option12.Value = 0
End Sub

Private Sub Option11_Click()
mark = mark + 1
End Sub

Private Sub Option3_Click()
mark = mark + 1
End Sub

Private Sub Option8_Click()
mark = mark + 1

End Sub
